' LOOKUP & RANDOM Commands
'
' Convert numeric value to ASCII hexadecimal equivalents.

        Include "bs1defs.bas"           ' Include BS1 variable and serial definitions

SO      con     0                       ' Define serial out

loop:   W6 = W0 : Gosub HexW            ' Print W0
        Serout SO,N2400,[13,10]         ' Print end of line
	Random W0			' Randomize W0
        Goto loop                       ' Do this forever!!!

                                        ' Send W6 as XXXX (Uses W5)
HexW:   Gosub HexB13                    ' Print MSB
        B13 = B12                       ' Print LSB
HexB13: B11 = B13 / 16                  ' Print MSN
	Gosub HexB11
	B11 = B13 & 15
HexB11: Lookup B11,["0123456789ABCDEF"],B10     ' B10 = HEX$(B11)
        Serout SO,N2400,[B10]
	Return
